units-2.1: Tests/Compile/UnitParser/Quoters.hs

{- Define test quasiquoters
   Copyright (c) 2014 Richard Eisenberg
-}

{-# LANGUAGE TemplateHaskell, CPP #-}

module Tests.Compile.UnitParser.Quoters where

import Data.Metrology.Parser
import Data.Metrology.SI

$(makeQuasiQuoter "ms" [''Milli, ''Kilo] [''Meter, ''Second])

#if __GLASGOW_HASKELL__ >= 709
$(do units <- allUnits
     prefixes <- allPrefixes
     makeQuasiQuoter "unit" units prefixes)
#endif