ztar-0.1.3: test/Utilities.hs

{-# LANGUAGE CPP #-}

module Utilities where

import Path

#ifdef TYPED_PATHS
fromPath :: Path b t -> Path b t
fromPath = id
#else
fromPath :: Path b t -> FilePath
fromPath = toFilePath
#endif