menoh 0.1.0 → 0.1.1
raw patch · 4 files changed
+24/−3 lines, 4 filesdep ~JuicyPixels
Dependency ranges changed: JuicyPixels
Files
- README.md +3/−0
- menoh.cabal +3/−2
- retrieve_data.hs +17/−0
- src/Menoh/Base.hsc +1/−1
README.md view
@@ -1,5 +1,8 @@ # menoh-haskell +[](https://hackage.haskell.org/package/menoh)+[](https://packdeps.haskellers.com/feed?needle=menoh)+ Haskell binding for [Menoh](https://github.com/pfnet-research/menoh/) DNN inference library. # Requirements
menoh.cabal view
@@ -1,5 +1,5 @@ name: menoh-version: 0.1.0+version: 0.1.1 license: MIT license-file: LICENSE author: Masahiro Sakai <sakai@preferred.jp>@@ -12,6 +12,7 @@ cabal-version: >=1.10 extra-source-files: README.md+ retrieve_data.hs retrieve_data.sh data-files: data/*.png@@ -42,7 +43,7 @@ , transformers >=0.3 && <0.6 , vector >=0.10 && <0.13 pkgconfig-depends:- menoh >=0.5.1+ menoh >=1.0.0 default-language: Haskell2010 executable vgg16_example
+ retrieve_data.hs view
@@ -0,0 +1,17 @@+#!/usr/bin/env stack +-- stack runghc --package conduit --package conduit-extra --package http-conduit+{-# OPTIONS_GHC -Wall #-}+import Control.Monad.Trans.Resource+import Data.Conduit.Binary (sinkFile)+import Network.HTTP.Simple++main :: IO ()+main = do+ let downloadTo :: String -> FilePath -> IO ()+ downloadTo req fname = do+ putStrLn $ req ++ " -> " ++ fname+ request <- parseRequest req+ runResourceT $ httpSink request $ \_ -> sinkFile fname+ downloadTo "https://www.dropbox.com/s/bjfn9kehukpbmcm/VGG16.onnx?dl=1" "./data/VGG16.onnx"+ downloadTo "https://raw.githubusercontent.com/HoldenCaulfieldRye/caffe/master/data/ilsvrc12/synset_words.txt" "./data/synset_words.txt"+ downloadTo "https://upload.wikimedia.org/wikipedia/commons/5/54/Light_sussex_hen.jpg" "./data/Light_sussex_hen.jpg"
src/Menoh/Base.hsc view
@@ -7,7 +7,7 @@ import Foreign.C #include <menoh/menoh.h>-#include <menoh/version.hpp>+#include <menoh/version.h> type MenohDType = #type menoh_dtype