fork download 
  1. import Control.Monad
  2. import Data.Binary.Get
  3. import qualified Data.ByteString as B
  4.  
  5. readNames :: Int -> Get [B.ByteString]
  6. readNames 0 = return []
  7. readNames n = liftM2 (:) (getByteString 2) (readNames $ n-1)
  8.  
  9. readHeader :: Get [B.ByteString]
  10. readHeader = readNames 4
  11.  
  12. testData = undefined --B.pack $ foldr B.cons B.empty [10,20..70]
  13.  
  14. main :: IO ()
  15. main = print $ runGet readHeader testData
  16.  
Compilation error #stdin compilation error #stdout 0s 0KB
comments (?)
stdin 
Standard input is empty
compilation info 
prog.hs:2:7:
    Could not find module `Data.Binary.Get':
      Use -v to see a list of the files searched for.
stdout 
Standard output is empty
https://ideone.com/h2b9x
language:
Haskell (ghc 8.4.4)
created:
13 years ago
visibility:
secret

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!