Skip to content
New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Add basic usage example #39

Merged
merged 6 commits into from
Nov 13, 2023
Merged
Show file tree
Hide file tree
Changes from 4 commits
Commits
File filter

Filter by extension

Filter by extension

Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
2 changes: 2 additions & 0 deletions examples/logger/.gitignore
Original file line number Diff line number Diff line change
@@ -0,0 +1,2 @@
.stack-work/
*~
11 changes: 11 additions & 0 deletions examples/logger/CHANGELOG.md
Original file line number Diff line number Diff line change
@@ -0,0 +1,11 @@
# Changelog for `logger-example`

All notable changes to this project will be documented in this file.

The format is based on [Keep a Changelog](https://keepachangelog.com/en/1.0.0/),
and this project adheres to the
[Haskell Package Versioning Policy](https://pvp.haskell.org/).

## Unreleased

## 0.1.0.0 - YYYY-MM-DD
1 change: 1 addition & 0 deletions examples/logger/README.md
Original file line number Diff line number Diff line change
@@ -0,0 +1 @@
# logger-example
2 changes: 2 additions & 0 deletions examples/logger/Setup.hs
Original file line number Diff line number Diff line change
@@ -0,0 +1,2 @@
import Distribution.Simple
main = defaultMain
1 change: 1 addition & 0 deletions examples/logger/app.log
Original file line number Diff line number Diff line change
@@ -0,0 +1 @@
Log message 10
30 changes: 30 additions & 0 deletions examples/logger/app/Main.hs
Original file line number Diff line number Diff line change
@@ -0,0 +1,30 @@
import System.AtomicWrite.Writer.Text
import qualified Data.Text as T
import qualified Data.Text.IO as TIO
import Control.Monad (forM_)
import Control.Concurrent (forkIO, threadDelay)

logFilePath :: FilePath
logFilePath = "app.log"

logMessage :: FilePath -> T.Text -> IO ()
logMessage logFile message = atomicWriteFile logFile message

simulateLoggingProcess :: FilePath -> IO ()
simulateLoggingProcess logFile = do
forM_ [1..10 :: Int] $ \i -> do
let message = "Log message " <> show i
logMessage logFile (T.pack message)
putStrLn $ "Logged: " <> message
threadDelay 1000000

main :: IO ()
main = do
TIO.writeFile logFilePath mempty

_ <- forkIO (simulateLoggingProcess logFilePath)

threadDelay 12000000

putStrLn "Log file contents: "
TIO.readFile logFilePath >>= TIO.putStrLn
76 changes: 76 additions & 0 deletions examples/logger/logger-example.cabal
Original file line number Diff line number Diff line change
@@ -0,0 +1,76 @@
cabal-version: 2.2

-- This file has been generated from package.yaml by hpack version 0.36.0.
--
-- see: https://github.com/sol/hpack

name: logger-example
version: 0.1.0.0
description: Please see the README on GitHub at <https://github.com/githubuser/logger-example#readme>
homepage: https://github.com/githubuser/logger-example#readme
bug-reports: https://github.com/githubuser/logger-example/issues
author: Author name here
maintainer: [email protected]
copyright: 2023 Author name here
license: BSD-3-Clause
license-file: LICENSE
build-type: Simple
extra-source-files:
README.md
CHANGELOG.md

source-repository head
type: git
location: https://github.com/githubuser/logger-example

library
exposed-modules:
Lib
other-modules:
Paths_logger_example
autogen-modules:
Paths_logger_example
hs-source-dirs:
src
ghc-options: -Wall -Wcompat -Widentities -Wincomplete-record-updates -Wincomplete-uni-patterns -Wmissing-export-lists -Wmissing-home-modules -Wpartial-fields -Wredundant-constraints
build-depends:
atomic-write >=0.2
, base >=4.7 && <5
, filepath >=1.4 && <2
, text >=2.0
default-language: Haskell2010

executable logger-example-exe
main-is: Main.hs
other-modules:
Paths_logger_example
autogen-modules:
Paths_logger_example
hs-source-dirs:
app
ghc-options: -Wall -Wcompat -Widentities -Wincomplete-record-updates -Wincomplete-uni-patterns -Wmissing-export-lists -Wmissing-home-modules -Wpartial-fields -Wredundant-constraints -threaded -rtsopts -with-rtsopts=-N
build-depends:
atomic-write >=0.2
, base >=4.7 && <5
, filepath >=1.4 && <2
, logger-example
, text >=2.0
default-language: Haskell2010

test-suite logger-example-test
type: exitcode-stdio-1.0
main-is: Spec.hs
other-modules:
Paths_logger_example
autogen-modules:
Paths_logger_example
hs-source-dirs:
test
ghc-options: -Wall -Wcompat -Widentities -Wincomplete-record-updates -Wincomplete-uni-patterns -Wmissing-export-lists -Wmissing-home-modules -Wpartial-fields -Wredundant-constraints -threaded -rtsopts -with-rtsopts=-N
build-depends:
atomic-write >=0.2
, base >=4.7 && <5
, filepath >=1.4 && <2
, logger-example
, text >=2.0
default-language: Haskell2010
62 changes: 62 additions & 0 deletions examples/logger/package.yaml
Original file line number Diff line number Diff line change
@@ -0,0 +1,62 @@
name: logger-example
version: 0.1.0.0
github: "stackbuilders/atomic-write"
license: BSD-3-Clause
author: "@BarbDMC"
maintainer: "[email protected]"
copyright: "2023 @BarbDMC"

extra-source-files:
- README.md
- CHANGELOG.md

# Metadata used when publishing your package
# synopsis: Short description of your package
# category: Web

# To avoid duplicated efforts in documentation and dealing with the
# complications of embedding Haddock markup inside cabal files, it is
# common to point users to the README.md file.
description: Please see the README on GitHub at <https://github.com/githubuser/logger-example#readme>

dependencies:
- base >= 4.7 && < 5
- atomic-write >= 0.2
- text >= 2.0
- filepath >= 1.4 && < 2

ghc-options:
- -Wall
- -Wcompat
- -Widentities
- -Wincomplete-record-updates
- -Wincomplete-uni-patterns
- -Wmissing-export-lists
- -Wmissing-home-modules
- -Wpartial-fields
- -Wredundant-constraints

library:
source-dirs: src

executables:
logger-example-exe:
main: Main.hs
source-dirs: app
ghc-options:
- -threaded
- -rtsopts
- -with-rtsopts=-N
dependencies:
- logger-example

tests:
logger-example-test:
main: Spec.hs
source-dirs: test
ghc-options:
- -threaded
- -rtsopts
- -with-rtsopts=-N
dependencies:
- logger-example
6 changes: 6 additions & 0 deletions examples/logger/src/Lib.hs
Original file line number Diff line number Diff line change
@@ -0,0 +1,6 @@
module Lib
( someFunc
) where

someFunc :: IO ()
someFunc = putStrLn "someFunc"
67 changes: 67 additions & 0 deletions examples/logger/stack.yaml
Original file line number Diff line number Diff line change
@@ -0,0 +1,67 @@
# This file was automatically generated by 'stack init'
#
# Some commonly used options have been documented as comments in this file.
# For advanced use and comprehensive documentation of the format, please see:
# https://docs.haskellstack.org/en/stable/yaml_configuration/

# Resolver to choose a 'specific' stackage snapshot or a compiler version.
# A snapshot resolver dictates the compiler version and the set of packages
# to be used for project dependencies. For example:
#
# resolver: lts-21.13
# resolver: nightly-2023-09-24
# resolver: ghc-9.6.2
#
# The location of a snapshot can be provided as a file or url. Stack assumes
# a snapshot provided as a file might change, whereas a url resource does not.
#
# resolver: ./custom-snapshot.yaml
# resolver: https://example.com/snapshots/2023-01-01.yaml
resolver:
url: https://raw.githubusercontent.com/commercialhaskell/stackage-snapshots/master/lts/21/19.yaml

# User packages to be built.
# Various formats can be used as shown in the example below.
#
# packages:
# - some-directory
# - https://example.com/foo/bar/baz-0.0.2.tar.gz
# subdirs:
# - auto-update
# - wai
packages:
- .
# Dependency packages to be pulled from upstream that are not in the resolver.
# These entries can reference officially published versions as well as
# forks / in-progress versions pinned to a git hash. For example:
#
# extra-deps:
# - acme-missiles-0.3
# - git: https://github.com/commercialhaskell/stack.git
# commit: e7b331f14bcffb8367cd58fbfc8b40ec7642100a
#
# extra-deps: []

# Override default flag values for local packages and extra-deps
# flags: {}

# Extra package databases containing global packages
# extra-package-dbs: []

# Control whether we use the GHC we find on the path
# system-ghc: true
#
# Require a specific version of Stack, using version ranges
# require-stack-version: -any # Default
# require-stack-version: ">=2.13"
#
# Override the architecture used by Stack, especially useful on Windows
# arch: i386
# arch: x86_64
#
# Extra directories used by Stack for building
# extra-include-dirs: [/path/to/dir]
# extra-lib-dirs: [/path/to/dir]
#
# Allow a newer minor version of GHC than the snapshot specifies
# compiler-check: newer-minor
13 changes: 13 additions & 0 deletions examples/logger/stack.yaml.lock
Original file line number Diff line number Diff line change
@@ -0,0 +1,13 @@
# This file was autogenerated by Stack.
# You should not edit this file by hand.
# For more information, please see the documentation at:
# https://docs.haskellstack.org/en/stable/lock_files

packages: []
snapshots:
- completed:
sha256: fb482b8e2d5d061cdda4ba1da2957c012740c893a5ee1c1b99001adae7b1fbe7
size: 640046
url: https://raw.githubusercontent.com/commercialhaskell/stackage-snapshots/master/lts/21/19.yaml
original:
url: https://raw.githubusercontent.com/commercialhaskell/stackage-snapshots/master/lts/21/19.yaml