mirror of
https://github.com/nikita-volkov/hasql.git
synced 2025-01-01 15:04:17 +03:00
56 lines
1.0 KiB
Haskell
56 lines
1.0 KiB
Haskell
module HighSQL.Prelude
|
|
(
|
|
module Exports,
|
|
bug,
|
|
bottom,
|
|
)
|
|
where
|
|
|
|
|
|
-- base-prelude
|
|
-------------------------
|
|
import BasePrelude as Exports hiding (left, right, tryJust, bool)
|
|
|
|
-- mtl-prelude
|
|
-------------------------
|
|
import MTLPrelude as Exports hiding (shift)
|
|
|
|
-- mmorph
|
|
-------------------------
|
|
import Control.Monad.Morph as Exports
|
|
|
|
-- list-t
|
|
-------------------------
|
|
import ListT as Exports (ListT)
|
|
|
|
-- text
|
|
-------------------------
|
|
import Data.Text as Exports (Text)
|
|
|
|
-- bytestring
|
|
-------------------------
|
|
import Data.ByteString as Exports (ByteString)
|
|
|
|
-- hashable
|
|
-------------------------
|
|
import Data.Hashable as Exports (Hashable)
|
|
|
|
-- time
|
|
-------------------------
|
|
import Data.Time as Exports
|
|
|
|
-- placeholders
|
|
-------------------------
|
|
import Development.Placeholders as Exports
|
|
|
|
-- custom
|
|
-------------------------
|
|
import qualified Debug.Trace.LocationTH
|
|
|
|
|
|
bug = [e| $(Debug.Trace.LocationTH.failure) . (msg <>) |]
|
|
where
|
|
msg = "A \"high-sql\" package bug: " :: String
|
|
|
|
bottom = [e| $bug "Bottom evaluated" |]
|