diff options
| author | joe <joe@jerkface.net> | 2014-01-02 23:44:39 -0500 |
|---|---|---|
| committer | joe <joe@jerkface.net> | 2014-01-02 23:44:39 -0500 |
| commit | 11cfdea302aecc73485c1e86ccf41eea3bc07257 (patch) | |
| tree | 58432129cc5452d0bbeece087579cbc04fed5a03 /Data/BitSyntax.hs | |
| parent | 9fb56130da969267a7f002e1b1db64a482a3b746 (diff) | |
Fixed build against newer libraries.
Diffstat (limited to 'Data/BitSyntax.hs')
| -rw-r--r-- | Data/BitSyntax.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/Data/BitSyntax.hs b/Data/BitSyntax.hs index 2e483dce..dbb43f45 100644 --- a/Data/BitSyntax.hs +++ b/Data/BitSyntax.hs | |||
| @@ -219,7 +219,7 @@ data ReadType = -- | An unsigned number of some number of bytes. Valid | |||
| 219 | -- decoding to return the trailing part at that point. | 219 | -- decoding to return the trailing part at that point. |
| 220 | Rest | 220 | Rest |
| 221 | 221 | ||
| 222 | fromBytes :: (Bits a) => [a] -> a | 222 | fromBytes :: (Num a, Bits a) => [a] -> a |
| 223 | fromBytes input = | 223 | fromBytes input = |
| 224 | let dofb accum [] = accum | 224 | let dofb accum [] = accum |
| 225 | dofb accum (x:xs) = dofb ((shiftL accum 8) .|. x) xs | 225 | dofb accum (x:xs) = dofb ((shiftL accum 8) .|. x) xs |