loch-th-example.hs

#!/usr/bin/env stack
-- stack --resolver lts-9.21 script --package loch-th
{-# LANGUAGE TemplateHaskell #-}
{-# OPTIONS_GHC -Wall -Werror #-}

import Debug.Trace.LocationTH (check)
import System.Environment (getArgs)

main :: IO ()
main = do
    argc <- length <$> getArgs
    let f = if argc == 0 then id else $check
    print . f $ head ""