Custom function definitions for Haskell AWK (Hawk). Store in .hawk/prelude.gs. See https://github.com/gelisam/hawk for details.

prelude.hs

{- .hawk/prelude.hs -}
{-# LANGUAGE ExtendedDefaultRules, OverloadedStrings #-}
import Prelude
import qualified Data.ByteString.Char8 as B
import qualified Data.ByteString.Lazy as BL
import qualified Data.ByteString.Lazy.Search as S
import qualified Data.List as L

replace :: String -> String -> BL.ByteString -> BL.ByteString 
replace search replacement input = S.replace (B.pack search) (B.pack replacement) input

-- See https://github.com/gelisam/hawk/blob/master/doc/conversions/prelude.hs
to :: (Read a) => B.ByteString -> a
to = read . B.unpack

toBool :: B.ByteString -> Bool
toBool = to

toDouble :: B.ByteString -> Double
toDouble = to

toFloat :: B.ByteString -> Float
toFloat = to

toInt :: B.ByteString -> Int
toInt = to

toString :: B.ByteString -> String
toString = show