Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

Whoops. That cabal spec was totally broken.

Now, it is not.
  • Loading branch information...
commit 8a3a29c9df94232cb5fd2277dd60795f2edee472 1 parent fadc1ad
@mariusae authored
View
3  Data/BERT/Packet.hs
@@ -50,4 +50,5 @@ getPacket =
packets :: L.ByteString -> [Packet]
packets b
| L.null b = []
- | otherwise = p:packets b' where (p, b', _) = runGetState getPacket b 0
+ | otherwise = p:packets b'
+ where (p, b', _) = runGetState getPacket b 0
View
1  Network/BERT/Client.hs
@@ -48,4 +48,3 @@ call transport mod fun args =
handle t@(TupleTerm (AtomTerm "error":_)) =
return $ Left . ServerError $ t
handle t = fail $ "unknown reply " ++ (show t)
-
View
3  Network/BERT/Server.hs
@@ -41,8 +41,7 @@ serve transport dispatch =
servet transport $ \t ->
(forkIO $ withTransport t $ handleCall dispatch) >> return ()
-handleCall dispatch =
- recvt >>= handle
+handleCall dispatch = recvt >>= handle
where
handle (TupleTerm [AtomTerm "info", AtomTerm "stream", _]) =
sendErr "server" 0 "BERTError" "streams are unsupported" []
View
6 bert.cabal
@@ -1,6 +1,6 @@
cabal-version: >= 1.6
name: bert
-version: 1.0
+version: 1.1
build-type: Simple
license: BSD3
license-file: LICENSE
@@ -20,6 +20,10 @@ library
parsec >= 2.0
exposed-modules:
Data.BERT
+ Data.BERT.Packet
+ Data.BERT.Parser
+ Data.BERT.Term
+ Data.BERT.Types
Network.BERT
Network.BERT.Transport
Network.BERT.Client
Please sign in to comment.
Something went wrong with that request. Please try again.