No title

Anonymous Coward 2018-03-04 22:12:53.354217 UTC

1{-# LANGUAGE AllowAmbiguousTypes #-}
2{-# LANGUAGE FlexibleContexts #-}
3{-# LANGUAGE NoMonomorphismRestriction #-}
4
5module Client.API where
6
7import API
8import Data.Proxy
9import Reflex.Dom.Core hiding (tag)
10import Servant.API
11import Servant.Reflex
12
13getCells :<|> addCells :<|> runFilter :<|> parseInputString :<|> parseFilterString = client layout m tag url
14 where layout = Proxy :: Proxy API
15 m = Proxy :: Proxy m
16 tag = Proxy :: Proxy ()
17 url = constDyn $ BaseFullUrl Http "localhost" 3000 "/"