djv

def profile(func):
    from functools import wraps

    @wraps(func)
    def wrapper(*args, **kwargs):
        from line_profiler import LineProfiler
        prof = LineProfiler()
        try:
            return prof(func)(*args, **kwargs)
        finally:

djv

{-# LANGUAGE BangPatterns #-}
import qualified Data.Vector as V
import qualified Data.Vector.Unboxed as UV
import qualified Data.ByteString.Char8 as C
import Data.Vector.Strategies

data LabelPixel = LabelPixel {_label :: !Int, _pixels :: !(UV.Vector Int)}

trim :: C.ByteString -> C.ByteString
trim = C.reverse . C.dropWhile (`elem` " \t") . C.reverse . C.dropWhile (`elem` " \t")

djv

{-# LANGUAGE GADTs, StandaloneDeriving #-}

data List a b where
  Nil   :: List a b
  ConsI :: Int -> List Bool Int -> List Int Bool
  ConsB :: Bool -> List Int Bool -> List Bool Int

deriving instance (Show a, Show b) => Show (List a b)